home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 06 (1983-02)(Softdisk)(Side A).zip / Softdisk Magazette Volume 2, No. 06 (1983-02)(Softdisk)(Side A).do / PAL.44077.KOERWITZ.JAN.83.A.bas < prev    next >
BASIC Source File  |  1996-12-24  |  3KB  |  57 lines
  1. 10  TEXT : HOME : INVERSE : HTAB 10: PRINT "PLEA FOR INFORMATION": POKE 34,1
  2. 20  POKE 35,23: VTAB 24: PRINT "  G=GOBACK  M=MORE  P=PAL MENU  E=END   ": POKE 35,23
  3. 40  NORMAL : HOME : PRINT : PRINT "   HI, I AM AN APPLE USER WHO IS DUMB"
  4. 50  PRINT : PRINT "( ABOUT COMPUTERS ), AND I WOULD LIKE TO"
  5. 60  PRINT "LEARN MORE ABOUT THE APPLE COMPUTER"
  6. 70  PRINT : PRINT "THROUGH THE SOFT.PALS PROGRAM. I FEEL"
  7. 80  PRINT : PRINT "THAT I COULD LEARN SOME VALUABLE INFO."
  8. 90  PRINT : PRINT "TO HELP ME ON A POSSIBLE CAREER AFTER"
  9. 100  PRINT : PRINT "COLLEGE. COMPUTERS ARE A WHOLE NEW FIELD"
  10. 110  PRINT "THAT IS EXPANDING EVERY DAY WITH NEW"
  11. 120  PRINT : PRINT "SOFTWARE AND HARDWARE DEVELPOMENTS."
  12. 130  PRINT : PRINT "SPEAKING OF SOFTWARE I WOULD LIKE TO "
  13. 140  VTAB 24: HTAB 39: GET A$: IF A$ = "G"  THEN  GOTO 40
  14. 150  IF A$ = "P"  THEN  GOTO 510
  15. 160  IF A$ = "E"  THEN  VTAB 21: END 
  16. 170  GOSUB 530
  17. 180  HOME 
  18. 190  PRINT : PRINT "RECOMMEND TWO MARVELOUS PIECES OF"
  19. 200  PRINT : PRINT "SOFTWARE PUT OUT BY BEAGLE BROS."
  20. 210  PRINT : PRINT "THEY ARE ";: GOSUB 550: PRINT "UTILITY CITY + TIP DISK #1 ."
  21. 220  NORMAL 
  22. 230  PRINT : PRINT "THEY ARE USEFUL TO MOST EVERY PROGRAMER"
  23. 240  PRINT : PRINT "THEY ARE WELL DOCUMENTED AND ARE"
  24. 250  PRINT : PRINT "VERY GOOD PIECES OF SOFTWARE"
  25. 260  PRINT : PRINT "WHEN YOU GET UTILITY CITY IT HAS"
  26. 270  PRINT : PRINT "A POKE (IN THE BOOK) TO PUT THE "
  27. 280  PRINT : PRINT "CATALOG ON A DIFFERENT TRACK    "
  28. 290  PRINT : PRINT "TRY IT !<CTRL-G><CTRL-G>"
  29. 300  VTAB 24: HTAB 39: GET A$: IF A$ = "G"  THEN  GOTO 40
  30. 310  IF A$ = "P"  THEN  GOTO 510
  31. 320  IF A$ = "E"  THEN  VTAB 21: END 
  32. 330  GOSUB 530
  33. 340  HOME 
  34. 350  PRINT : PRINT "I AM ESPECIALLY INTERESED IN LEARNING "
  35. 360  PRINT : PRINT "ABOUT PEEKS AND POKE AND OF COURSE CALLS"
  36. 370  PRINT "I REALLY ENJOY SOFTDISK EVERY MONTH"
  37. 380  PRINT : PRINT "ALSO COULD ANYBODY RECOMMEND A WORKING "
  38. 390  PRINT : PRINT "FAST DOS THAT CAN PERFORM ALL NORMAL DOS"
  39. 400  PRINT "COMMANDS. I SAY WORKING BECAUSE I HEARD"
  40. 410  PRINT : PRINT "ABOUT THE 'TEXT' FILE PROBLEM WITH "
  41. 420  PRINT : PRINT "DIVERSI-DOS"
  42. 430  VTAB 24: HTAB 39: GET A$: IF A$ = "P"  THEN 510
  43. 440  IF A$ = "G"  THEN 180
  44. 450  IF A$ = "E"  THEN  VTAB 1: END 
  45. 460  FOR I = 0 TO 39: POKE 33,1: POKE 32,I: FOR J = 1 TO 22: PRINT : NEXT J: NEXT I
  46. 470  POKE 32,0: POKE 33,40: HOME 
  47. 480  PRINT : PRINT "THANKS FOR THE OPPORTUNITY TO"
  48. 490  PRINT : PRINT "COMMUNTICATE WITH YOU THROUGH SOFTDISK"
  49. 492  PRINT : PRINT "PAUL KOERWITZ": PRINT "10154 CANDLESTICK LANE": PRINT "PAINESVILLE, OHIO     44077"
  50. 500  GET A$: TEXT : HOME 
  51. 510  VTAB 1: PRINT : PRINT "<CTRL-D>RUN PAL.MENU"
  52. 520  END 
  53. 530  SPEED= 255: FOR I = 1 TO 20: PRINT : FOR J = 1 TO 100: NEXT J: NEXT I
  54. 540  RETURN 
  55. 550  INVERSE 
  56. 560  RETURN 
  57. 65535  REM            SOFT PALS                BY PAUL KOERWITZ              48K APPLE ][+